home *** CD-ROM | disk | FTP | other *** search
/ ASME's Mechanical Engine…ing Toolkit 1997 December / ASME's Mechanical Engineering Toolkit 1997 December.iso / basic / qtool4.lzh / AECOMMON.BAS next >
BASIC Source File  |  1987-02-13  |  2KB  |  42 lines
  1. rem $linesize:132
  2. rem $title:'(c) Copyright 1987, Roy Barrow.'
  3. rem $subtitle:'COMMON definitions for use with AELIB.'
  4. '
  5. '  These COMMON definitions should be placed right at the start of
  6. '  Application Engineer programs, with the INCLUDE meta command.
  7. '  Refer to page -188- of the Microsoft QuickBASIC 2.00 Compiler Guide.
  8. '
  9. '  This revision: 10-January-1987    
  10. '  Application Engineer (c) Copyright 1986,1987 Roy Barrow
  11. '
  12.  
  13. OPTION BASE 0                                            ' For no underflow
  14.  
  15.  
  16. DIM   idx.nam$(10%),xk$(10%,6%),xh%(10%,4%)              ' Index variables
  17. DIM   ae.screens%(10000%)                                ' Screen holding
  18. DIM   ae.fg%(10%),ae.bg%(10%),ae.hg%(10%)                ' Colors
  19. DIM   dialog$(8%)                                        ' Dialog text
  20. DIM   ae.menu$(70%),ae.op%(70%),ae.hlp%(70%)             ' Menu options
  21. DIM   ae.ffld$(300%),ae.ffpr%(300%),ae.flp%(20%,2%)      ' File fielding
  22. DIM   ae.dirs$(10%)                                      ' AE directories
  23.  
  24.  
  25. COMMON   /AE.INDEX/     idx.nam$(),xk$(),xh%()           ' Index variables
  26. COMMON   /AE.COLOR/     ae.fg%(),ae.bg%(),ae.hg%()       ' Color attributes
  27. COMMON   /AE.ERR/         aesb.fatal%,aesb.warning%        ' Sub Routine Errors
  28. COMMON   /AE.SCBUF/     ae.screens%(),ae.sstack%         ' Screen control
  29. COMMON   /AE.DIALOG/    dialog$()                        ' Dialog boxes
  30. COMMON   /AE.MENUS.1/   ae.menu$(),ae.op%(),ae.hlp%()    ' Pull Down Menus
  31. COMMON   /AE.MENUS.2/   mcount%,menu%,menop%             ' Pull Down Menus
  32. COMMON   /AE.FIELDS/    ae.ffld$(),ae.ffpr%(),ae.flp%()  ' File fielding
  33. COMMON   /AE.CONTROL/   ae.dirs$(),ae.sernum$            ' Controls
  34.  
  35. '
  36. '  *NOTE*   All of the above variables should in NO WAY be redefined or
  37. '           tampered with. By doing so, the performance of AELIB routines
  38. '           will be altered unexpectedly. Many of the variables will
  39. '           contain garbage until initialised. Most of these variables
  40. '           will be initialised by subroutines.
  41.  
  42.